home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD004a.dsk / HOW.SOFTDISK.WORKS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  94 lines
  1. 5  REM  HOW.SOFTDISK.WORKS
  2. 10  TEXT : HOME 
  3. 100  VTAB 2: HTAB 12: PRINT "SOFTDISK MAGAZETTE"
  4. 110  HTAB 13: PRINT "3811 ST. VINCENT"
  5. 120  HTAB 7: PRINT "SHREVEPORT, LOUISIANA 71108"
  6. 130  VTAB 6: HTAB 6: PRINT "$10 TO START  -  $5 PER MONTH"
  7. 140  VTAB 9: HTAB 4: PRINT "SOFTDISK IS A MONTHLY PUBLICATION."
  8. 150  VTAB 12: HTAB 32: PRINT "(WIFE)"
  9. 160  VTAB 14: HTAB 3: PRINT "PUBLISHER - AL TOMMERVIK     MARGOT"
  10. 170  VTAB 16: HTAB 6: PRINT "EDITOR - JIM MANGHAM      JUDI"
  11. 180  VTAB 18: HTAB 6: PRINT "EDITOR - JOHN WRENHOLT    RHONDA"
  12. 190  GOSUB 8000
  13. 200  HOME 
  14. 210  VTAB 2: HTAB 12: PRINT "HOW SOFTDISK WORKS"
  15. 220  GOSUB 8050
  16. 230  VTAB 7: PRINT " SENDS $10 STARTUP FEE"
  17. 240  GOSUB 8000
  18. 250  GOSUB 8200
  19. 260  GOSUB 8100
  20. 270  VTAB 7: HTAB 20: PRINT "RECEIVES STARTUP FEE"
  21. 280  GOSUB 8000
  22. 290  VTAB 9: HTAB 20: PRINT "SENDS INITIAL ISSUE": HTAB 20: PRINT "IN REUSABLE MAILER"
  23. 300  GOSUB 8000
  24. 310  GOSUB 8200
  25. 320  GOSUB 8050
  26. 330  VTAB 7: PRINT " RECEIVES INITIAL ISSUE"
  27. 340  PRINT " IN REUSABLE MAILER"
  28. 350  GOSUB 8000
  29. 360  VTAB 10: PRINT " IMMEDIATELY SEND BACK MAILER"
  30. 370  PRINT " & $5 PAYMENT FOR NEXT ISSUE"
  31. 375  PRINT " (RETAIN DISKETTE)"
  32. 470  GOSUB 8000
  33. 480  GOSUB 8200
  34. 490  GOSUB 8100
  35. 500  VTAB 7: HTAB 21: PRINT "RECEIVES MAILER &"
  36. 510  HTAB 21: PRINT "PAYMENT FOR NEXT"
  37. 520  HTAB 21: PRINT "ISSUE"
  38. 530  GOSUB 8000
  39. 540  VTAB 11: HTAB 21: PRINT "SENDS MAILER & NEW"
  40. 550  HTAB 21: PRINT "ISSUE"
  41. 560  GOSUB 8000
  42. 570  GOSUB 8200
  43. 580  GOSUB 8050
  44. 590  VTAB 7: PRINT " RECEIVES MAILER &"
  45. 600  PRINT " NEW ISSUE"
  46. 610  GOSUB 8000
  47. 620  VTAB 10: PRINT " IMMEDIATELY SEND BACK"
  48. 630  PRINT " OLD DISKETTE IN MAILER"
  49. 640  PRINT " WITH $5 PAYMENT FOR"
  50. 650  PRINT " NEXT ISSUE"
  51. 655  PRINT " (RETAIN NEW DISKETTE)"
  52. 700  GOSUB 8000
  53. 710  GOSUB 8200
  54. 720  GOSUB 8100
  55. 730  VTAB 7: HTAB 21: PRINT "RECEIVES MAILER WITH";
  56. 740  HTAB 21: PRINT "OLD DISKETTE &"
  57. 750  HTAB 21: PRINT "PAYMENT FOR NEXT"
  58. 760  HTAB 21: PRINT "ISSUE"
  59. 770  GOSUB 8000
  60. 780  VTAB 12: HTAB 21: PRINT "SENDS MAILER & YET"
  61. 790  HTAB 21: PRINT "ANOTHER ISSUE"
  62. 800  GOSUB 8000
  63. 810  GOSUB 8200
  64. 820  VTAB 8: HTAB 8: PRINT "-- AND THE ";: FLASH : PRINT "BEAT";: NORMAL : PRINT " GOES ON --"
  65. 830  VTAB 12: PRINT " PLEASE SEND RETURNS BACK THE SAME DAY"
  66. 840  PRINT " YOU RECEIVE A MAILER."
  67. 850  PRINT : PRINT " WE MUST MAKE A SPECIAL MAILING FOR LATE";
  68. 860  PRINT " RETURNS."
  69. 870  PRINT : PRINT " BE A GROOVER AND GET IN THE SOFTDISK"
  70. 875  PRINT " GROOVE."
  71. 880  GOSUB 8000
  72. 882  VTAB 5: CALL  -868
  73. 885  GOSUB 8200
  74. 890  VTAB 4: PRINT " OUR ADDRESS & PREPAID POSTAGE PERMIT"
  75. 900  PRINT " IS ON THE FLIP SIDE OF YOUR ADDRESS"
  76. 910  PRINT " CARD."
  77. 920  PRINT " (PLASTIC BAG OPENS AT RED LINE)"
  78. 930  PRINT : PRINT " THE FIRST THING YOU SHOULD DO UPON"
  79. 940  PRINT " RECEIVING A NEW MAGAZETTE IS MAKE A"
  80. 950  PRINT " PERSONAL COPY OF IT FOR YOUR KEEPING."
  81. 960  PRINT : PRINT " THEN YOU HAVE A MONTH TO PLAY WITH"
  82. 970  PRINT " OUR DISKETTE & PLACE FEEDBACK"
  83. 980  PRINT " COMMENTS ON IT."
  84. 990  PRINT : PRINT " WHEN YOU GET A NEW ONE,"
  85. 1000  PRINT " SEND BACK THE OLD ONE,"
  86. 1010  PRINT " WITH PAYMENT FOR THE NEXT ONE."
  87. 1015  PRINT " ALWAYS KEEP A DISK TO RUN."
  88. 1017  PRINT " THAT'S THE WAY TO HAVE SOME FUN."
  89. 1020  GOSUB 8000
  90. 1030  PRINT  CHR$(4);"RUN KICK.IT.OFF"
  91. 8000  FOR I = 1 TO 250: NEXT : VTAB 23: CALL  -868: HTAB 14: FLASH : PRINT "*";: NORMAL : PRINT " HIT RETURN ";: FLASH : PRINT "*";: NORMAL : INPUT " ";R$: RETURN 
  92. 8050  VTAB 5: HTAB 6: INVERSE : PRINT "SUBSCRIBER";: NORMAL : HTAB 27: PRINT "SOFTDISK": RETURN 
  93. 8100  VTAB 5: HTAB 6: PRINT "SUBSCRIBER";: HTAB 27: INVERSE : PRINT "SOFTDISK": NORMAL : RETURN 
  94. 8200  FOR I = 7 TO 20: VTAB (I): CALL  -868: NEXT : RETURN